home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / networking / misc / lpr1p0b.lha / lpql < prev    next >
Encoding:
Text File  |  1994-11-11  |  1.5 KB  |  62 lines
  1. /*******************************************************************************************************************
  2. * lpq hostname printername
  3. *
  4. * 3) display queue (short)
  5. *    display que
  6. *    syntax: \3printer [users ...] [jobs ...]\n
  7. *            read from tcp
  8. * 4) display queue (long)
  9. *    display que
  10. *    syntax: \3printer [users ...] [jobs ...]\n
  11. *            read from tcp
  12. *
  13. * users is string
  14. * jobs ar integers
  15. *
  16. *******************************************************************************************************************/
  17.  
  18. options failat 10
  19.  
  20. signal on halt
  21. signal on ioerr
  22. signal on break_c
  23.  
  24. if arg() < 1 | arg(1) = '?' then call usage 
  25.  
  26. parse arg Hostname PrI Options
  27.  
  28. /* parse var Options file Options */
  29.  
  30. say 'Statistics of printer ' || PrI ' on ' || Hostname  ':'
  31.  
  32. /* Open printer tcp connection  and file to send */
  33.  
  34. If ~Open(pr, 'TCP:' || Hostname || '/printer', 'W') Then Do; Say '*** Service not present'; Exit 10; End
  35.  
  36. /* Init remote printer daemon to accept files */
  37.  
  38. writeln(pr,d2c(4) || PrI)
  39. /* chr=readch(pr,1) */
  40. /*  if chr ~= d2c(0) then Do; Say '*** Unknown remote printer: ' || c2b(chr);    Exit 10; End */
  41. thisline = readln(pr)
  42. say thisline
  43. do until eof(pr)
  44.  thisline = readln(pr)
  45.  say thisline
  46. end
  47. call close pr
  48. exit 0
  49.  
  50. /* ----------------------------------------------------------------------- */
  51. /* Error Handling */
  52. halt:
  53. oerr:
  54. reak_c:
  55. exit 10
  56.  
  57. /* ----------------------------------------------------------------------- */
  58. usage:
  59.     say "Usage: lpql hostname printername"
  60.     say
  61.     exit 0
  62.